D/REM REM ÆUNKTIONSPLOTTER FUER Ã64 & ÓUPRA64 REM :START CLR ZU$="0123456789- " GOSUB SCREEN CURSOR 0,2 PRINT "ÉNTERVALL VON :"; INPUT 3,ZU$,EI$ A=VAL(EI$) PRINT PRINT "BIS :"; INPUT 3,ZU$,EI$ B=VAL(EI$) CURSOR 0,4 PRINT "Ù MIN-ËOORDINATE :"; INPUT 3,ZU$,EI$ Y1=VAL(EI$) PRINT PRINT "Ù MAX-ËOORDINATE :"; INPUT 3,ZU$,EI$ Y2=VAL(EI$) REM REM ÔEST AUF ÓINN ! REM IF A>=B:START IF Y1>=Y2:START REM REM ÂERECHNUNG ! REM IX=B-A DX=320/IX IY=Y2-Y1 DY=200/IY HA=ABS(A) HY=ABS(Y1) REM GOSUB SCREEN REM LINE 1,HA*DX,0,HA*DX,199 LINE 1,0,200-(HY*DY),319,200-(HY*DY) X=0 DO UNTIL X=IX LINE 1,X*DX,200-ABS(HY*DY-3),X*DX,200-ABS(HY*DY+3) X=X+1 LOOP X=0 DO UNTIL X=IY LINE 1,ABS(HA*DX-3),X*DY,ABS(HA*DX+3),X*DY X=X+1 LOOP REM REM PLOTTEN REM X=A DO UNTIL XK>=319 REM --------------- Y=ABS(X) REM --------------- XK=X*DX+HA*DX YK=200-(Y*DY+HY*DY) IFYK<8ORYK>199:+WEITER DRAW 1,XK,YK :WEITER X=X+1/(DX+2) LOOP END. :SCREEN SCNCLR CURSOR 0,0 MODUS 1 PRINT "ÆUNKTIONSPLOTTER Ö1" MODUS 0 RETURN Z